Public Class ParametroEscopo

    Private strIdEscopo As String
    Private strIdProjeto As String
    Private strRodada As String
    Private strSituacao As String

    Public Sub New(ByVal strIdProjeto As String, ByVal strIdEscopo As String, ByVal strRodada As String)

        Me.strIdEscopo = strIdEscopo
        Me.strIdProjeto = strIdProjeto
        Me.strRodada = strRodada
    End Sub

    Public Sub setIdEscopo(ByVal IdEscopo As String)
        strIdEscopo = IdEscopo
    End Sub

    Public Function getIdEscopo() As String
        getIdEscopo = strIdEscopo
    End Function

    Public Sub setIdProjeto(ByVal IdProjeto As String)
        strIdProjeto = IdProjeto
    End Sub

    Public Function getIdProjeto() As String
        getIdProjeto = strIdProjeto
    End Function

    Public Sub setRodada(ByVal Rodada As String)
        strRodada = Rodada
    End Sub

    Public Function getRodada() As String
        getRodada = strRodada
    End Function

    Public Sub setSituacao(ByVal Situacao As String)
        strSituacao = Situacao
    End Sub

    Public Function getSituacao() As String
        getSituacao = strSituacao
    End Function


End Class
